﻿
Namespace YahooManaged.Geo.PlaceFinder


    Public Class PlaceFinderException
        Inherits Exception

        Private mErrorCode As PlaceFinderError = PlaceFinderError.NoError
        Public ReadOnly Property ErrorCode As PlaceFinderError
            Get
                Return mErrorCode
            End Get
        End Property

        Friend Sub New(ByVal errCode As PlaceFinderError, ByVal errMessage As String)
            MyBase.New(errMessage)
            mErrorCode = errCode
        End Sub
    End Class

End Namespace